home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbactlt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-06  |  1.2 KB  |  34 lines
  1. (*===========================================================================*)
  2. (* Test a search arguement                                                   *)
  3. (*                                                                           *)
  4. (*   Copyright 1990, 1991 by H. Roy Engehausen.  All rights reserved.        *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8.   (*=========================================================================*)
  9.   (* Sub procedure to validate a search arguement                            *)
  10.   (*=========================================================================*)
  11.  
  12.   PROCEDURE test_search;
  13.  
  14.     BEGIN;
  15.  
  16.       {$IFDEF DEBUG2}
  17.         WRITELN('Action verify -- ', s1);
  18.         DELAY(1000);
  19.       {$ENDIF}
  20.  
  21.       free_task_mem(search_memory_block_id, TRUE);
  22.  
  23.       set_search(s1, @search_info);
  24.  
  25.       IF active_tcb^.error_sw THEN
  26.         send_tnc_data_str('Invalid search on action -- ' + s1 + cr);
  27.  
  28.       {$IFDEF DEBUG2}
  29.         WRITELN('Action verify done -- ', ORD(active_tcb^.error_sw));
  30.         DELAY(1000);
  31.       {$ENDIF}
  32.  
  33.     END;
  34.